สอบถามเกี่ยวกับ Windows CE Connect Database ได้วิธีไหนได้มั่ง

 Private conStr As String = "Data Source=192.168.X.XX;Initial Catalog=iERP81_T1;Integrated Security=True;uid=sa; pwd=******; "

    Private conStr As String = "server=192.168.X.XXX;uid=sa;pwd=XXXXXX;database=XXXXXX;"

Imports System.Data
Imports System.Data.Common
Imports System.Data.SqlClient
Imports System.Data.SqlServerCe

Public Class Form1
    Private conStr As String = "server=192.168.0.23;uid=sa;pwd=xxxx;database=xxxx;"
 

    Private mycon As SqlConnection

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Try
            mycon = New SqlConnection(conStr)

            If mycon.State = ConnectionState.Closed Then
                mycon.Open()
            End If
            '  Catch ex As Exception
            '  MsgBox("Invalid connectionString")

        Catch ex As SqlException
            Dim l_sqlerr As SqlError
            For Each l_sqlerr In ex.Errors
                MsgBox(l_sqlerr.Message)
            Next

        End Try

     


    End Sub

    Sub template()
        Dim cmd As New SqlCommand
        Dim da As New SqlDataAdapter
        Dim ds As New DataSet
        Try
            With cmd
                .Connection = mycon
                .CommandType = CommandType.Text
                .CommandText = ""

            End With
            da.SelectCommand = cmd
            da.Fill(ds, "")
        Catch exsql As SqlException
            MsgBox(exsql.Message, MsgBoxStyle.Exclamation)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation)
        End Try
    End Sub

    Private Sub ShowDetail()
        Dim cmd As New SqlCommand
        Dim da As New SqlDataAdapter
        Dim ds As New DataSet
        'Dim dr As New SqlDataReader



        Try
            With cmd
                .Connection = mycon
                .CommandType = CommandType.Text
                '.CommandText = "select  top 1 *  from employee order by newid()"
                ' .CommandText = "select itc_id from itc"
                .CommandText = "select * from Tape"

            End With

            da.SelectCommand = cmd

            da.Fill(ds, "Show") 'Keep data to Dataset

            dgShow.DataSource = ds.Tables("Show")


      
        Catch exsql As SqlException
            MsgBox(exsql.Message, MsgBoxStyle.Exclamation)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation)
        End Try

    End Sub

    Private Sub btnShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShow.Click
        ShowDetail()
    End Sub
End Class

select name=name COLLATE Latin1_General_CI_AS from Account where Username ='admin'