new, Visual Basic - rextester

Language: Layout:

'Rextester.Program.Main is the entry point for your code. Don't change it.
'Compiler version 11.0.50709.17929 for Microsoft (R) .NET Framework 4.5

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text.RegularExpressions

Namespace Rextester
    Public Module Program
        Public Sub Main(args() As string)
            'Your code goes here
               
               Imports System.Data.OleDb
Imports System.Data
               
               Dim provider As String

Dim connString As String
        Dim con As OleDbConnection = New OleDbConnection

provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Login_Data.accdb"
        connString = provider
        con.ConnectionString = connString
        con.Open()
        Dim str As String
        str = "Insert into Login values('" & txt1.Text & "','" & txt2.Text & "');"
        Dim cmd As OleDbCommand = New OleDbCommand(str, con)
        cmd.Parameters.Add(New OleDbParameter("Usename", CType(txt1.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Password", CType(txt2.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Cpassword", CType(txt3.Text, String)))

Try
            cmd.ExecuteNonQuery()
            cmd.Dispose()
            con.Close()
            txt1.Clear()
            txt2.Clear()
            txt3.Clear()

Catch ex As Exception
            MsgBox("unautorised")

End Try
            
            Console.WriteLine("Hello, world!")
        End Sub
    End Module
End Namespace

Show compiler warnings [ + ] Show input
Compilation time: 0,2 s