executenonquery connection property has not been initialized pls solve it - visual-studio

Question

Imports System.Data.OleDb
Public Class Form1
Dim con As New OleDbConnection
Dim dbProvider As String = "Provider=Microsoft.ACE.OLEDB.12.0;"
Dim dbSource As String = "Data Source=D:\Visual Basic\dito\Database2.accdb;"
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
con.ConnectionString = dbProvider & dbSource
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If TextBox3.Text = Nothing Or TextBox4.Text = Nothing Then
MessageBox.Show("Please enter details", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
If con.State = ConnectionState.Closed Then
con.Open()
End If
Using cmd As New OleDbCommand("SELECT COUNT(*)FROM member WHERE [USERNAME] = #USERNAME OR [PASSWORD] = #PASSWORD", con)
cmd.Parameters.AddWithValue("#USERNAME", OleDbType.VarChar).Value = TextBox3.Text
cmd.Parameters.AddWithValue("#PASSWORD", OleDbType.VarChar).Value = TextBox4.Text
Dim count = Convert.ToInt32(cmd.ExecuteScalar())
If count > 0 Then
MessageBox.Show("oops, username and password has already been taken", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
End Using
Using create As New OleDbCommand("INSERT INTO member(USERNAME], [PASSWORD])VALUES(#USERNAME,PASSWORD)")
create.Parameters.AddWithValue("#USERNAME", OleDbType.VarChar).Value = TextBox3.Text
create.Parameters.AddWithValue("#PASSWORD", OleDbType.VarChar).Value = TextBox4.Text
If create.ExecuteNonQuery Then
MessageBox.Show("Account created", "information", MessageBoxButtons.OK, MessageBoxIcon.Information)
TextBox3.Clear()
TextBox4.Clear()
End If
End Using
con.Close()
End Sub
End Class
pls help dont know what to do