Want to change IDbconnection servicestack. Ormlite MySQL becomes dapper with MSACESS in Vb. Net

Dear All,

I want the code below to be changed to dapper with database access on vb.net. The code below uses [login to view URL] and [login to view URL] with mysql database. My goal is to be able to use kimtoo datagridview binding provider with dapper database access

Thanks

'Module Connection

Imports [login to view URL]

Imports [login to view URL]

Imports MySql

Imports ServiceStack

Namespace [login to view URL]

Public Module Connection

'constructor

Sub New()

Try

'setttings for mysql

Dim err = [login to view URL]("Server=localhost;Database=demo;Uid=root;SslMode=none;", [login to view URL])

'settings for sql server

'var err = [login to view URL](@"Server=admin-PC\LOCALHOST;Database=demo;Trusted_Connection=True;", [login to view URL]);

If err IsNot Nothing Then

[login to view URL]([login to view URL])

[login to view URL](0)

End If

Catch err As Exception

[login to view URL]([login to view URL])

[login to view URL](0)

End Try

End Sub

Public Sub CheckAndCreateTables()

Dim db As [login to view URL] = [login to view URL]()

[login to view URL](Of User)()

End Sub

End Module

End Namespace

'in form1 or form main

Public Sub New()

InitializeComponent()

[login to view URL](Of User)(Function(r, c) [login to view URL]().Save(r) OrElse True)

LoadData()

End Sub

VB.NET Visual Basic C# Programming

Project ID: #36665520

About the project